Module ModuleLector
    Sub nuevoLector()
        FormLector.Text = "Agregar Lector"
        FormLector.btnAceptarLector.Text = "Agregar"
        FormLector.ShowDialog()
    End Sub
    Sub modificarLector()
        FormLector.Text = "Modificar Lector"
        FormLector.btnAceptarLector.Text = "Modificar"
        FormLector.ShowDialog()
    End Sub
    Sub eliminarLector(ByRef lector As ClaseLector)

        If MsgBox("Desea Eliminar al Lector " & lector.NOMBRE & " " & lector.APELLIDO & (Chr(13)) & "Numero de Lector:" & lector.ID, MsgBoxStyle.YesNo, "Eliminar Lector") = MsgBoxResult.Yes Then
            Try
                lector.Borrar()
                MsgBox("Eliminado Exitosamente") ''
            Catch ex As Exception
                Throw ex
            End Try

        End If
    End Sub
End Module
